1 POKE53280,5:POKE53281,11:POKE53265,11:A=A+1:IFA=1THENLOAD"SCR.CODE",8,1
2 GOSUB98:POKE650,255:PRINT"[145][145] ** [210]OUTINE [201]NITIATED **":SYS49152
3 PRINT"[155] [212]HE COLOURS SELECTED BY  [195]OMMODORE FOR  THE SCREEN RESTORE  ARE ACCEPTAB";
4 PRINT"LE BUT  YOU MAY  FIND  THAT YOU  WOULD LIKE AN  ALTERNATIVE THAT SUITS YO";
5 PRINT"U BETTER. [212]HE  MACHINE CODE  PROGRAM  ALLOWS  YOU  TO  CHOOSE  THE  COLOU";
6 PRINT"RS  FOR  THE  SCREEN  RESTORE. [201]T IS IMPORTANT THAT YOU KNOW  EXACTLY  HO";
7 PRINT"W  TO  USE IT.  [195]ONSULT THE  MAGAZINE  FOR  DETAILED  INSTRUCTIONS."
8 POKE53265,27:POKE198,0:POKE56295,10:C=9:P=62:S1=49152:S2=S1:D=8
9 FORI=0TO42:POKE679+I,PEEK(49336+I):NEXT
10 C=C+1:IFC=10THENP=252-P:POKE2023,P:C=0
11 GETA$:IFA$=""THEN10
12 GOSUB98:GOSUB103
13 IFEF=0ANDD<15THENOPEN15,D,15:INPUT#15,A,B$,A$,A$:CLOSE15:PRINT"[145][145] "B$""
14 IFS1<>S2THENPRINT" [195]ODE ALTERED FOR START AT[158]"S2""
15 PRINT" [193]CTUAL CODE:[158]"S1"TO[158]"S1+183"INCL."
16 PRINT" [196]EVICE:[158]"DTAB(12)"[[196][201][211][203]]";:IFD=15THENPRINT"[157][157][157][157][157][157][157][157]  [[212][193][208][197]]"
17 PRINT"[159] F1:[155] [193]LTER CODE FOR RELOCATION
18 [153]"OPEN F3:LIST (null)RANSFER ALTERED CODE":[153]"OPEN F5:LIST (null)AVE CODE":[153]"OPEN F7:LIST LENHANGE COLOURS
19 PRINT"[159]  [196]:[155] [195]HANGE DEVICE NUMBER"
20 GETA$:IFA$=CHR$(133)THEN26
21 IFA$=CHR$(134)THEN36
22 IFA$=CHR$(135)THEN42
23 IFA$=CHR$(136)THEN86
24 IFA$="D"THEND=D+1:D=D+8*(D=16):PRINTLEFT$("",8-2*(S1<>S2)):GOTO16
25 GOTO20
26 GOSUB101:PRINT" [197]NTER ADDRESS OF START OF CODE":PRINT" (IN DECIMAL)":A$=""
27 PRINT" :[158]"CHR$(34)CHR$(20);:OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:A=VAL(A$):IFA=0THEN12
28 IFA<820ORA>65352THEN26
29 IF((A>1023)OR(A+183>1023))AND((A<2024)OR(A+183<2024))THEN26
30 S2=A:PRINT" [193]LTERING CODE FOR START AT[158]"S2:RESTORE:FORI=1TO14:READD1,D2
31 D1=S1+D1:D2=S2+D2:POKED1+1,D2/256:POKED1,(D2/256-INT(D2/256))*256:NEXT
32 DATA1,49,4,56,7,21,22,9,25,169,28,9,31,170,34,9,37,183,54,40,61,40
33 DATA84,106,117,136,129,183
34 D1=S1+50:D2=S2+63:POKED1,(D2/256-INT(D2/256))*256:POKED1+2,D2/256
35 PRINT" [208]ROCESS COMPLETE... [208]RESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0:GOTO12
36 GOSUB101:IFNOT(((S2>=S1)AND(S2<S1+184))OR((S2+184>S1)AND(S2+184<S1+184)))THEN40
37 PRINT" [195]ANNOT TRANSFER TO THIS POSITION."
38 PRINT" [211]TARTS OR ENDS WITHIN ORIGINAL RANGE.":PRINT" [208]RESS ANY KEY"
39 POKE198,0:WAIT198,1:POKE198,0:GOTO12
40 PRINT" [207]K. [212]RANSFERRING FROM[158]"S1"TO[158]"S2:FORI=0TO183
41 POKES2+I,PEEK(S1+I):NEXT:S1=S2:GOTO35
42 GOSUB103:IFEF=1THEN14
43 AS=S1:BC=S2:L=185:GOSUB101:IFD<15THEN50
44 IFS1=S2THEN66
45 PRINT" [195]ODE HAS BEEN CHANGED  FOR RELOCATION."
46 PRINT" [201]T CAN THEREFORE NOT BE SAVED TO TAPE."
47 PRINT" [193]LTER  CODE  FOR  RELOCATION  TO POINT"
48 PRINT" SHOWN BY [158]'[193]CTUAL [195]ODE' ABOVE OR  PRESS"
49 PRINT" 'F3' TO TRANSFER THE CODE.":GOTO35
50 PRINT" [215]OULD YOU LIKE THE ROUTINE TO AUTOBOOT"
51 PRINT" [208]LEASE PRESS '[217]' OR '[206]'.":POKE198,0
52 GETA$:IFA$="N"THENGOSUB101:PRINT"[145][145] [208]LEASE WAIT...":GOTO68
53 IFA$<>"Y"THEN52
54 IFS2>2023THEN57
55 GOSUB101:PRINT" [210]OUTINE CANNOT AUTOBOOT IF THE CODE IS"
56 PRINT" LOADED TO[158]"S2:PRINT" [208]RESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0:GOTO12
57 GOSUB101:RESTORE:PRINT"[145][145] [208]LEASE WAIT...":FORI=1TO28:READA:NEXT
58 FORI=0TO91:READA:POKE1624+I,A:NEXT:FORI=0TO183
59 POKE1716+I,PEEK(S1+I):NEXT:POKE1659,S2/256:POKE1658,(S2/256-INT(S2/256))*256
60 DATA54,3,237,246,62,241,47,243,102,254,165,244,237,245,0,0,120,169,202,162
61 DATA241,141,38,3,142,39,3,88,162,0,189,130,3,157,0,0,232,224,184,208,245,173
62 DATA43,4,174,44,4,172,57,4,141,32,208,142,33,208,140,134,2,32,0,0,169,78,162
63 DATA69,160,87,141,119,2,142,120,2,140,121,2,169,13,162,147,141,122,2,142,123
64 DATA2,169,5,133,198,96
65 POKE1684,PEEK(1658):POKE1685,PEEK(1659):L=276:AS=1624:BC=806:GOTO68
66 PRINT" [208]LEASE PRESS [208][204][193][217] AND [210][197][195][207][210][196] ON YOUR"
67 PRINT" CASSETTE DECK.[151]"
68 F$="SCR.CODE"+STR$(S2):DV=D+14*(D=15):IFD<15THENF$="@:"+F$
69 SYS679 F$,DV,2,AS,AS+L
70 IF(AS=S2)AND(S1=S2)THENPRINT"";:GOTO35
71 T=18:S=1:F=0:OPEN15,D,15:OPEN8,D,8,"#":F$=MID$(F$,3)
72 PRINT#15,"U1 8 0"T;S:GET#8,A$:T=ASC(A$+CHR$(0)):GET#8,A$:S=ASC(A$+CHR$(0))
73 FORI=0TO7:PRINT#15,"B-P:8"I*32:S$="":GET#8,A$:GET#8,A$:GET#8,P$
74 GET#8,T$:GET#8,T2$:IFT$=""ORP$<>CHR$(130)THEN79
75 FORJ=1TO16:GET#8,A$:IFA$=""THENA$=CHR$(0)
76 IFASC(A$)=160THEN78
77 S$=S$+A$
78 NEXT:IFS$=F$THENF=1:N=I:I=8:T=0
79 NEXT:IFT<>0THEN72
80 IFF=0THEN84
81 T=ASC(T$+CHR$(0)):S=ASC(T2$+CHR$(0)):PRINT#15,"U1 8 0"T;S
82 PRINT#15,"B-P:8 2":PRINT#8,CHR$((BC/256-INT(BC/256))*256)CHR$(INT(BC/256));
83 PRINT#15,"U2 8 0"T;S:CLOSE8:CLOSE15:PRINT"";:GOTO35
84 GOSUB101:PRINT"[145][145] [196]ISK [214]ERIFY [197]RROR.":PRINT" [198]ILE SCRATCHED.":PRINT#15,"S0:"+F$
85 CLOSE8:CLOSE15:PRINT"";:GOTO35
86 GOSUB101:PRINT" [195]HANGE COLOURS":PRINT"[159] F1:[155] [194]ORDER COLOUR":C1=PEEK(S1+169)AND15
87 PRINT"[159] F3:[155] [194]ACKGROUND COLOUR":PRINT"[159] F5:[155] [201]NK COLOUR":C2=PEEK(S1+170)AND15
88 PRINT"[159] F7:[155] [210]ETURN TO MAIN MENU":POKE198,0:C3=PEEK(S1+183)AND15
89 IFC2=C3THEN94
90 PRINT"[145][145][145][145][145][145][145]"TAB(25);:POKE646,C1:PRINT"   "
91 POKE646,C2:PRINTTAB(25)"   ":POKE646,C3:PRINTTAB(25)"   ":POKE198,0
92 GETA$:IFA$=""THEN92
93 IFA$=CHR$(133)THENC1=C1+1:C1=C1+16*(C1=16):GOTO90
94 IFA$=CHR$(134)THENC2=C2+1:C2=C2+16*(C2=16):GOTO89
95 IFA$=CHR$(135)THENC3=C3+1:C3=C3+16*(C3=16):GOTO89
96 IFA$=CHR$(136)THENPOKES1+169,C1:POKES1+170,C2:POKES1+183,C3:GOTO12
97 GOTO92
98 PRINT"[147]  [150][181][129][161][158][182][170][154] [146] [211]ELECTIVE [195]OLOUR [210]ESTORE [154] [180][158][181][129][161][146][150][182]"
99 PRINT" [194]Y [202]ASON [198]INCH      ([195]) [211]EPTEMBER 1989"
100 PRINT"                                        ":RETURN
101 PRINT"":FORI=1TO9:PRINT"[151]                                       "
102 NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145]":RETURN
103 EF=0:A$="OK                                   ":IFD=15THEN105
104 OPEN1,D,0:POKE781,1:SYS65481:IFPEEK(783)AND1THENEF=1:A$="[196]EVICE NOT PRESENT"
105 SYS65511:PRINT" "A$:RETURN